<?php
header('Content-type:text/html; Charset=utf-8');

/** 请填写以下配置信息 */
$mchid = '1556173941';          //微信支付商户号 PartnerID 通过微信支付商户资料审核后邮件发送
$appid = 'wx41e7fa2bd4e8f219';  //公众号APPID 通过微信支付商户资料审核后邮件发送
$apiKey = '2YFIOP2nAvAa86uzWOcnw20GRf1efesV';   //https://pay.weixin.qq.com 帐户设置-安全设置-API安全-API密钥-设置API密钥
if (!isset($_GET['ID']) || !$_GET['ID']) die('页面调用错误');
$retURL = 'location:';
if (!$_GET['retURL']) $_GET['retURL'] = '/';
if (substr($_GET['retURL'], 0, 1) == '/') {
  $retURL .= $_GET['retURL'];
} else {
  $retURL = $_GET['retURL'];
}

$ids = json_decode($_GET['ID'], true);
if (!is_array($ids)) {
  $ids = [$ids];
}

include_once('../code/core.php');
$tmp = GetData(['table' => 'orders,items', 'orders.ID' => $ids, 'other' => ' and orders.itemID=items.ID'], 'orders.ID,orders.sum,orders.itemID,orders.tradeNo,items.CNY,items.point');
if (!$tmp || !$tmp[0]['tradeNo'] || $tmp[0]['tradeNo'] == '0') die('此ID未支付');
$outTradeNo = $tmp[0]['tradeNo'];     //要查询的订单号
/** 配置结束 */

$wxPay = new WxpayService($mchid, $appid, $apiKey);

$ids = [];
foreach ($tmp as $value) {
  if (!in_array($value['tradeNo'], $ids) && $value['tradeNo'] && $value['tradeNo'] != '0') {
    $ids[] = $value['tradeNo'];
  }
}
foreach ($ids as $value) {
  $result = $wxPay->orderquery($value);
  $sum = $result['data']['cash_fee']; // total_fee cash_fee
  if ($sum) {
    $tmp = GetData(['table' => 'orders', 'tradeNo' => $value], 'ID,money,buyID,sellID,itemID,state');
    foreach ($tmp as $v) {
      $money = json_decode($v['money'], true);
      $u = GetData(['table' => 'users', 'ID' => $v['buyID']], 'CNY,point', true);
      $td = ['table' => 'orders', 'where' => ['ID' => $v['ID'], 'state' => 1]];
      $tc = false;
      $tup = false;
      if ($money['sum']['CNY'] && ($sum >= $money['sum']['CNY'] || $u['CNY'] >= $money['sum']['CNY'])) {
        $money['payment']['CNY'] = $money['sum']['CNY'];
        $tup = true;
        if ($sum >= $money['sum']['CNY']) {
          $sum -= $money['sum']['CNY'];
        } else {
          $u['CNY'] -= $money['sum']['CNY'];
        }
      }
      if ($money['sum']['point'] && $u['point'] >= $money['sum']['point']) {
        $tup = true;
        $money['payment']['point'] = $money['sum']['point'];
        $u['point'] -= $money['sum']['point'];
      }
      if ($tup) {
        $u = array_merge($u, [
          'table' => 'users',
          'ID' => $v['buyID']
        ]);
        UpData($u);
        $tc = array_merge($td, ['money' => json_encode($money)]);
      }
      if ($money['sum']['point'] == $money['payment']['point'] && $money['sum']['CNY'] == $money['payment']['CNY']) {
        if (!$tc) $tc = $td;
        $tc = array_merge($tc, ['state' => 2]);
      }
      // mPrintX($tc);
      if ($tc) UpData($tc);
    }
  }
}
// header($retURL);
// echo $retURL;
die;

class WxpayService
{
  protected $mchid;
  protected $appid;
  protected $apiKey;
  protected $returnUrl;
  public function __construct($mchid, $appid, $key)
  {
    $this->mchid = $mchid;
    $this->appid = $appid;
    $this->apiKey = $key;
  }

  public function setReturnUrl($returnUrl)
  {
    $this->returnUrl = $returnUrl;
  }

  public function orderquery($outTradeNo)
  {
    $config = array(
      'mch_id' => $this->mchid,
      'appid' => $this->appid,
      'key' => $this->apiKey,
    );
    //$orderName = iconv('GBK','UTF-8',$orderName);
    $unified = array(
      'appid' => $config['appid'],
      'mch_id' => $config['mch_id'],
      'out_trade_no' => $outTradeNo,
      'nonce_str' => self::createNonceStr(),
    );
    $unified['sign'] = self::getSign($unified, $config['key']);
    $responseXml = self::curlPost('https://api.mch.weixin.qq.com/pay/orderquery', self::arrayToXml($unified));
    $queryResult = simplexml_load_string($responseXml, 'SimpleXMLElement', LIBXML_NOCDATA);
    if ($queryResult === false) {
      die('parse xml error');
    }
    if ($queryResult->return_code != 'SUCCESS') {
      die($queryResult->return_msg);
    }
    $trade_state = $queryResult->trade_state;
    $data['code'] = $trade_state == 'SUCCESS' ? 0 : 1;
    $data['data'] = json_decode(json_encode($queryResult), true);
    $data['msg'] = $this->getTradeSTate($trade_state);
    $data['time'] = date('Y-m-d H:i:s');
    unset($data['data']['appid']);
    unset($data['data']['mch_id']);
    unset($data['data']['trade_type']);
    // $data['data']['cash_fee'] /= 100;
    // $data['data']['total_fee'] /= 100;
    return $data;
    exit();
  }

  public function getTradeSTate($str)
  {
    switch ($str) {
      case 'SUCCESS';
        return '支付成功';
      case 'REFUND';
        return '转入退款';
      case 'NOTPAY';
        return '未支付';
      case 'CLOSED';
        return '已关闭';
      case 'REVOKED';
        return '已撤销（刷卡支付）';
      case 'USERPAYING';
        return '用户支付中';
      case 'PAYERROR';
        return '支付失败';
    }
  }
  /**
   * curl get
   *
   * @param string $url
   * @param array $options
   * @return mixed
   */
  public static function curlGet($url = '', $options = array())
  {
    $ch = curl_init($url);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
    curl_setopt($ch, CURLOPT_TIMEOUT, 30);
    if (!empty($options)) {
      curl_setopt_array($ch, $options);
    }
    //https请求 不验证证书和host
    curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
    curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, false);
    $data = curl_exec($ch);
    curl_close($ch);
    return $data;
  }
  public static function curlPost($url = '', $postData = '', $options = array())
  {
    if (is_array($postData)) {
      $postData = http_build_query($postData);
    }
    $ch = curl_init();
    curl_setopt($ch, CURLOPT_URL, $url);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
    curl_setopt($ch, CURLOPT_POST, 1);
    curl_setopt($ch, CURLOPT_POSTFIELDS, $postData);
    curl_setopt($ch, CURLOPT_TIMEOUT, 30); //设置cURL允许执行的最长秒数
    if (!empty($options)) {
      curl_setopt_array($ch, $options);
    }
    //https请求 不验证证书和host
    curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
    curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, false);
    $data = curl_exec($ch);
    curl_close($ch);
    return $data;
  }
  public static function createNonceStr($length = 16)
  {
    $chars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
    $str = '';
    for ($i = 0; $i < $length; $i++) {
      $str .= substr($chars, mt_rand(0, strlen($chars) - 1), 1);
    }
    return $str;
  }
  public static function arrayToXml($arr)
  {
    $xml = "<xml>";
    foreach ($arr as $key => $val) {
      if (is_numeric($val)) {
        $xml .= "<" . $key . ">" . $val . "</" . $key . ">";
      } else
        $xml .= "<" . $key . "><![CDATA[" . $val . "]]></" . $key . ">";
    }
    $xml .= "</xml>";
    return $xml;
  }
  /**
   * 获取签名
   */
  public static function getSign($params, $key)
  {
    ksort($params, SORT_STRING);
    $unSignParaString = self::formatQueryParaMap($params, false);
    $signStr = strtoupper(md5($unSignParaString . "&key=" . $key));
    return $signStr;
  }
  protected static function formatQueryParaMap($paraMap, $urlEncode = false)
  {
    $buff = "";
    ksort($paraMap);
    foreach ($paraMap as $k => $v) {
      if (null != $v && "null" != $v) {
        if ($urlEncode) {
          $v = urlencode($v);
        }
        $buff .= $k . "=" . $v . "&";
      }
    }
    $reqPar = '';
    if (strlen($buff) > 0) {
      $reqPar = substr($buff, 0, strlen($buff) - 1);
    }
    return $reqPar;
  }
}
